(require* transportes)
(require* regras)



(deffacts iniciar
    (phase begin))

(deffunction letsRock ()
    (printout t "iniciar again? (s/n)" crlf)
    (if (eq (read) s) then (assert (phase begin))))


(reset)
(run)